program Project1; // Zadanie 3.5

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i : Integer;

begin
  Writeln('Program wyswietla liczby calkowite od 1 do 20.');
  i := 0;

  repeat
    i := i+1;
    if i < 20 then
      Write(i, ', ')
    else
      Write(i, '.');
  until i >= 20;

  Readln; // czeka na nacisniecie klawisza Enter
end.
